(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      8324,        335]
NotebookOptionsPosition[      5312,        229]
NotebookOutlinePosition[      5736,        245]
CellTagsIndexPosition[      5693,        242]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.0", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Guide", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["KramersKronigOscillators", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465],

Cell["KramersKronigOscillators`", "Categorization",
 CellLabel->"Context",
 CellID->468444828],

Cell["KramersKronigOscillators/guide/Kramers Kronig Oscillators", \
"Categorization",
 CellLabel->"URI"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552],

Cell["XXXX", "Keywords",
 CellID->1251852827]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->795394057],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->802101],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->509823116],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->199884516],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->463951815],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->8237523],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->813936640],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["Kramers Kronig Oscillators", "GuideTitle",
 CellID->942062912],

Cell["\<\
Complex response functions of a material with real (dispersive) and imaginary \
(absorbtive) parts that are Kramers-Kronig consistent.\
\>", "GuideAbstract",
 CellChangeTimes->{{3.6000436290378957`*^9, 3.600043648082985*^9}, {
  3.600043741440325*^9, 3.6000437973873*^9}, {3.600044268846963*^9, 
  3.60004431677103*^9}},
 CellID->2001916300]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "GuideFunctionsSection",
 CellID->1866139230],

Cell[CellGroupData[{

Cell["Analytical Oscillators", "GuideFunctionsSubsection",
 CellChangeTimes->{{3.600043993657576*^9, 3.6000440001775846`*^9}},
 CellID->114936321],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["LorentzianOSC",
   BaseStyle->"Link",
   ButtonData->"paclet:ThinFilmNLS/ref/LorentzianOSC"]], 
  "InlineGuideFunction"],
 " \[LongDash] Oscillator with Lorentzian imaginary component "
}], "GuideText",
 CellChangeTimes->{{3.6000440039185905`*^9, 3.6000440313406286`*^9}, {
  3.600044078315695*^9, 3.6000440783456945`*^9}},
 CellID->203374175]
}, Open  ]],

Cell["\t", "GuideDelimiter",
 CellID->311258892],

Cell[CellGroupData[{

Cell["\<\
High Precision Numerical Oscillators\
\>", "GuideFunctionsSubsection",
 CellChangeTimes->{{3.60004405385266*^9, 3.600044065964678*^9}},
 CellID->340336317],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["VoigtOSC",
   BaseStyle->"Link",
   ButtonData->"paclet:ThinFilmNLS/ref/VoigtOSC"]], "InlineGuideFunction"],
 " \[LongDash] XXXX"
}], "GuideText",
 CellChangeTimes->{{3.6000441263107624`*^9, 3.600044133081772*^9}},
 CellID->54778044]
}, Open  ]],

Cell["\t", "GuideDelimiter",
 CellID->1996491],

Cell[CellGroupData[{

Cell["\<\
High Precision Generalized Transform\
\>", "GuideFunctionsSubsection",
 CellChangeTimes->{{3.600044392039136*^9, 3.6000444255721827`*^9}, {
  3.6000445689453845`*^9, 3.6000445767963953`*^9}},
 CellID->222022558],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ImKramersKronigTransformRe",
   BaseStyle->"Link",
   ButtonData->"paclet:ThinFilmNLS/ref/ImKramersKronigTransformRe"]], 
  "InlineGuideFunction"],
 " \[LongDash] Obtain numerical approximation to the real part of a supplied \
imaginary part of the response function."
}], "GuideText",
 CellChangeTimes->{{3.6000444343821955`*^9, 3.600044536522339*^9}, {
  3.600044619000455*^9, 3.6000446321224732`*^9}},
 CellID->133724930],

Cell["GaussianOSC", "InlineGuideFunctionListing",
 CellChangeTimes->{{3.6000445423933473`*^9, 3.6000445451333513`*^9}, 
   3.600044670105527*^9},
 CellID->291096588]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "GuideTutorialsSection",
 CellID->415694126],

Cell["XXXX", "GuideTutorial",
 CellID->806871991],

Cell["XXXX", "GuideTutorial",
 CellID->1885805579]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "GuideMoreAboutSection",
 CellID->23220180],

Cell["XXXX", "GuideMoreAbout",
 CellID->1567025153],

Cell["XXXX", "GuideMoreAbout",
 CellID->252299663]
}, Open  ]],

Cell["Related Links", "GuideRelatedLinksSection",
 CellID->415694148]
},
WindowSize->{700, 770},
WindowMargins->{{Automatic, 271}, {Automatic, 26}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "GuidePageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 325, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[907, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[978, 41, 78, 2, 70, "Categorization",
 CellID->686433507],
Cell[1059, 45, 97, 2, 70, "Categorization",
 CellID->605800465],
Cell[1159, 49, 94, 2, 70, "Categorization",
 CellID->468444828],
Cell[1256, 53, 104, 2, 70, "Categorization"]
}, Closed]],
Cell[CellGroupData[{
Cell[1397, 60, 56, 1, 17, "KeywordsSection",
 CellID->1427428552],
Cell[1456, 63, 45, 1, 70, "Keywords",
 CellID->1251852827]
}, Closed]],
Cell[CellGroupData[{
Cell[1538, 69, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[1594, 72, 63, 2, 70, "Details",
 CellID->795394057],
Cell[1660, 76, 69, 2, 70, "Details",
 CellID->350963985],
Cell[1732, 80, 63, 2, 70, "Details",
 CellID->802101],
Cell[1798, 84, 71, 2, 70, "Details",
 CellID->509823116],
Cell[1872, 88, 61, 2, 70, "Details",
 CellID->199884516],
Cell[1936, 92, 61, 2, 70, "Details",
 CellID->463951815],
Cell[2000, 96, 61, 2, 70, "Details",
 CellID->8237523],
Cell[2064, 100, 78, 2, 70, "Details",
 CellID->813936640],
Cell[2145, 104, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2249, 111, 68, 1, 76, "GuideTitle",
 CellID->942062912],
Cell[2320, 114, 351, 7, 39, "GuideAbstract",
 CellID->2001916300]
}, Open  ]],
Cell[CellGroupData[{
Cell[2708, 126, 54, 1, 68, "GuideFunctionsSection",
 CellID->1866139230],
Cell[CellGroupData[{
Cell[2787, 131, 146, 2, 33, "GuideFunctionsSubsection",
 CellID->114936321],
Cell[2936, 135, 387, 10, 23, "GuideText",
 CellID->203374175]
}, Open  ]],
Cell[3338, 148, 48, 1, 26, "GuideDelimiter",
 CellID->311258892],
Cell[CellGroupData[{
Cell[3411, 153, 165, 4, 33, "GuideFunctionsSubsection",
 CellID->340336317],
Cell[3579, 159, 277, 8, 23, "GuideText",
 CellID->54778044]
}, Open  ]],
Cell[3871, 170, 46, 1, 26, "GuideDelimiter",
 CellID->1996491],
Cell[CellGroupData[{
Cell[3942, 175, 221, 5, 33, "GuideFunctionsSubsection",
 CellID->222022558],
Cell[4166, 182, 468, 11, 37, "GuideText",
 CellID->133724930],
Cell[4637, 195, 165, 3, 23, "InlineGuideFunctionListing",
 CellID->291096588]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4851, 204, 62, 1, 70, "GuideTutorialsSection",
 CellID->415694126],
Cell[4916, 207, 49, 1, 20, "GuideTutorial",
 CellID->806871991],
Cell[4968, 210, 50, 1, 20, "GuideTutorial",
 CellID->1885805579]
}, Open  ]],
Cell[CellGroupData[{
Cell[5055, 216, 62, 1, 70, "GuideMoreAboutSection",
 CellID->23220180],
Cell[5120, 219, 51, 1, 20, "GuideMoreAbout",
 CellID->1567025153],
Cell[5174, 222, 50, 1, 20, "GuideMoreAbout",
 CellID->252299663]
}, Open  ]],
Cell[5239, 226, 69, 1, 70, "GuideRelatedLinksSection",
 CellID->415694148]
}
]
*)

(* End of internal cache information *)

